rm(list = ls(all = TRUE))

# log output
sink("R_scripts.log", type=c("output"))

library(ggplot2)
library(dplyr)
library(foreign)
library(ggplot2)
library(quanteda)
library(reshape2)
library(stm)
library(tidytext)

source("1-generate_data.R", echo=TRUE, max.deparse.length=1e3)
source("2-estimate_policy_positions.R", echo=TRUE, max.deparse.length=1e3)
source("3-add_budget_data.R", echo=TRUE, max.deparse.length=1e3)
source("4-plot_policy_positions.R", echo=TRUE, max.deparse.length=1e3)
source("5-plot_budget_items_by_portfolio.R", echo=TRUE, max.deparse.length=1e3)
source("6-generate_descriptive_stats.R", echo=TRUE, max.deparse.length=1e3)
source("9-estimate_topic_models.R", echo=TRUE, max.deparse.length=1e3)

sink()
